From bacaf44cd91c3cf9c18d1f50a0a81ea28abf6cfe Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sat, 26 Jan 2008 16:59:43 +0000 Subject: [PATCH] (Fclrhash): Return TABLE. --- src/fns.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/fns.c b/src/fns.c index 3f3cdccc36d..5df8be238df 100644 --- a/src/fns.c +++ b/src/fns.c @@ -5406,12 +5406,13 @@ DEFUN ("hash-table-p", Fhash_table_p, Shash_table_p, 1, 1, 0, DEFUN ("clrhash", Fclrhash, Sclrhash, 1, 1, 0, - doc: /* Clear hash table TABLE. */) + doc: /* Clear hash table TABLE and return it. */) (table) Lisp_Object table; { hash_clear (check_hash_table (table)); - return Qnil; + /* Be compatible with XEmacs. */ + return table; } -- 2.30.2